|
42
|
Is it possible to programmatically expand a folder (sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLayout to "Expand0 = "c:\";SelectMode0 = 0"
Send ComEndUpdate
End_Procedure
|
|
41
|
Can I limit the size of each cascade column, so the user can't resize them outside of the range I give
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderVisible to False
Set ComMode to OLEexFixCascadeMode
Set ComColumnsVisible to OLEexFileColumnName
Set ComMinColumnWidth to 128
Set ComMaxColumnWidth to 256
Send ComEndUpdate
End_Procedure
|
|
40
|
How can I define the width of the cascade column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMode to OLEexFixCascadeMode
Set ComDefColumnWidth to 256
Send ComEndUpdate
End_Procedure
|
|
39
|
The scroll bars are too large. Can I make them smaller
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollWidth to 4
Set ComScrollHeight to 4
Send ComEndUpdate
End_Procedure
|
|
38
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollPartVisible OLEexVScroll OLEexExtentThumbPart to True
Set ComScrollPartVisible OLEexHScroll OLEexExtentThumbPart to True
Set ComScrollPartVisible OLEexScroll OLEexExtentThumbPart to True
Set ComScrollWidth to 4
Set ComBackground OLEexVSBack to (RGB(240,240,240))
Set ComBackground OLEexVSThumb to (RGB(128,128,128))
Set ComScrollHeight to 4
Set ComBackground OLEexHSBack to (ComBackground(Self,OLEexVSBack))
Set ComBackground OLEexHSThumb to (ComBackground(Self,OLEexVSThumb))
Set ComBackground OLEexScrollSizeGrip to (ComBackground(Self,OLEexVSBack))
Send ComEndUpdate
Send ComBeginUpdate
Set ComColumnsVisible to OLEexFileColumnName
Set ComHeaderVisible to False
Set ComFitCascadeColumns to 3
Send ComEndUpdate
End_Procedure
|
|
37
|
How can I lock / freeze the control events
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComFreezeEvents True
End_Procedure
|
|
36
|
How can I display the list mode in the first view, and thumbnail in the second view
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSplitView to OLEexAllowOneSplitView
Set ComSplitViewHeight to "256"
Set ComLayout to "Select1="c:\";SelectMode1 = 2"
Set ComLayout to "Select0="c:\";SelectMode0 = 1"
Send ComEndUpdate
End_Procedure
|
|
35
|
How can I programmatically select a different folder in the second, or third view
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSplitView to OLEexAllowOneSplitView
Set ComSplitViewHeight to "256"
Set ComLayout to "Select1="d:\""
Set ComLayout to "Select0="E:\""
Send ComEndUpdate
End_Procedure
|
|
34
|
How can I programmatically vertically-split the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSplitView to OLEexAllowTwoSplitView
Set ComSplitViewHeight to "256,256"
Send ComEndUpdate
End_Procedure
|
|
33
|
How can I find if the control is running in DPI mode
Procedure OnCreate
Forward Send OnCreate
Showln (ComFormatABC(Self,"dpi = 1 ? `normal/stretch mode` : `dpi mode`",Nothing,Nothing,Nothing))
End_Procedure
|
|
32
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "XP:TREEVIEW 2 1" to Nothing
Get ComAdd of hoAppearance 2 "XP:TREEVIEW 2 2" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexTreeGlyphOpen to |CI$1000000
Set ComBackground OLEexTreeGlyphClose to |CI$2000000
Send ComEndUpdate
End_Procedure
|
|
31
|
How can I change the visual appearance of the +/- buttons
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=" to Nothing
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexTreeGlyphOpen to |CI$1000000
Set ComBackground OLEexTreeGlyphClose to |CI$2000000
Send ComEndUpdate
End_Procedure
|
|
30
|
How can I change the color for selected thumbnail
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelect to "c:\"
Set ComSelectMode to OLEexSelectModeThumbnail
Set ComBackground OLEexThumbnailSelBorderColor to (RGB(255,0,0))
Set ComBackground OLEexThumbnailSelBorderColorHide to (RGB(128,0,0))
Send ComEndUpdate
End_Procedure
|
|
29
|
How can I change the thumbnail's frame color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelect to "c:\"
Set ComSelectMode to OLEexSelectModeThumbnail
Set ComBackground OLEexThumbnailBorderColor to (RGB(0,0,1))
Send ComEndUpdate
End_Procedure
|
|
28
|
Turn on the background-alternate colors, for Thumbnail view
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelect to "c:\"
Set ComSelectMode to OLEexSelectModeThumbnail
Set ComBackground OLEexThumbnailBackColorAlt to (RGB(128,128,128))
Send ComEndUpdate
End_Procedure
|
|
27
|
Is there any option I can highlight the panel view that currently has the focus
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackground OLEexFocusFrame to (RGB(128,128,128))
Send ComEndUpdate
End_Procedure
|
|
26
|
I disabled the split bars, the question is how can I change the visual appearance of them
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackground OLEexSplitBar to (RGB(128,128,128))
Set ComBackground OLEexDisableSplitBar to (ComBackground(Self,OLEexSplitBar))
Set ComBackground OLEexCSplitBar to (ComBackground(Self,OLEexSplitBar))
Set ComBackground OLEexHSplitBar to (ComBackground(Self,OLEexSplitBar))
Set ComBackground OLEexSplitBarSize to (RGB(2,0,0))
Set ComBackground OLEexDisableSplitBarSize to (ComBackground(Self,OLEexSplitBarSize))
Set ComHeaderVisible to False
Set ComMode to (OLEexAutoFitOnResizeClient + OLEexDisableResizeCascadeColumns + OLEexSplitFixCascadeMode)
Send ComEndUpdate
End_Procedure
|
|
25
|
The control's split bar looks a bit larger, can I make it smaller
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI" to Nothing
Send Destroy to hoAppearance
Set ComAllowSplitView to OLEexAllowTwoSplitView
Set ComBackground OLEexSplitBar to |CI$1000000
Set ComBackground OLEexCSplitBar to |CI$1000000
Set ComBackground OLEexHSplitBar to |CI$1000000
Set ComBackground OLEexSplitBarSize to (RGB(3,0,0))
Set ComHeaderVisible to False
Send ComEndUpdate
End_Procedure
|
|
24
|
How can I change the status bar's visual appearance
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI" to Nothing
Send Destroy to hoAppearance
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComBackground OLEexStatusBackColor to |CI$1404040
Set ComBackground OLEexStatusForeColor to (RGB(255,255,255))
Set ComBackground OLEexStatusPanelBackColor to |CI$1808080
Send ComEndUpdate
End_Procedure
|
|
23
|
How can I change the status bar's visual appearance
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComBackground OLEexStatusBackColor to (RGB(40,40,40))
Set ComBackground OLEexStatusForeColor to (RGB(255,255,255))
Set ComBackground OLEexStatusPanelBackColor to (RGB(128,128,128))
Send ComEndUpdate
End_Procedure
|
|
22
|
How can I change the visual appearance for all split-bars that the control displays
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI" to Nothing
Send Destroy to hoAppearance
Set ComAllowSplitView to OLEexAllowTwoSplitView
Set ComBackground OLEexSplitBar to |CI$1000000
Set ComBackground OLEexCSplitBar to |CI$1000000
Set ComBackground OLEexHSplitBar to |CI$1000000
Set ComHeaderVisible to False
Send ComEndUpdate
End_Procedure
|
|
21
|
How can I change the visual appearance for all split-bars that the control displays
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAllowSplitView to OLEexAllowTwoSplitView
Set ComBackground OLEexSplitBar to (RGB(0,0,1))
Set ComBackground OLEexCSplitBar to (RGB(0,0,1))
Set ComBackground OLEexHSplitBar to (RGB(0,0,1))
Set ComHeaderVisible to False
Send ComEndUpdate
End_Procedure
|
|
20
|
How can I change the tooltip's visual appearance
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control." Nothing Nothing Nothing Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzVAcRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIuTBOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBhuC+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4ElmaQJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZlEQDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBIIoiAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm0CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA2nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKksT5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzCWBoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1000000
Send ComEndUpdate
End_Procedure
|
|
19
|
How can I change the tooltip's visual appearance
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control." Nothing Nothing Nothing Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackground OLEexToolTipBackColor to (RGB(0,0,1))
Set ComBackground OLEexToolTipForeColor to (RGB(255,255,0))
Send ComEndUpdate
End_Procedure
|
|
18
|
How can I change the visual appearance of the control's split bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzVAcRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIuTBOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBhuC+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4ElmaQJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZlEQDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBIIoiAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm0CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA2nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKksT5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzCWBoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexSplitBar to |CI$1000000
Set ComHeaderVisible to False
Set ComMode to OLEexFixCascadeMode
Send ComEndUpdate
End_Procedure
|
|
17
|
How can I change the visual appearance of the control's split bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackground OLEexSplitBar to (RGB(240,240,240))
Set ComHeaderVisible to False
Set ComMode to OLEexFixCascadeMode
Send ComEndUpdate
End_Procedure
|
|
16
|
How can I load images into the control
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComStatusBarLabel to "<img>pic1</img> This is picture into the control's status bar"
End_Procedure
|
|
15
|
Is it possible to show my tooltip
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control." Nothing Nothing Nothing Nothing
End_Procedure
|
|
14
|
Is it possible to change the tooltip's font
Procedure OnCreate
Forward Send OnCreate
Variant f
Get Comcreateobject "StdFont" to f
Set ComName to "Tahoma"
Set ComSize to 12
Set ComToolTipFont to f
End_Procedure
|
|
13
|
Is it possible to change the tooltip's width
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipWidth to 64
End_Procedure
|
|
12
|
How can I disable the control
Procedure OnCreate
Forward Send OnCreate
Set ComEnabled to False
End_Procedure
|
|
11
|
How can I force refreshing the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComRefresh
Send ComEndUpdate
End_Procedure
|
|
10
|
How can I prevent showing any tooltip
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 0
Set ComToolTipPopDelay to 0
End_Procedure
|
|
9
|
How can I make the control's tooltip to be shown for a longer time
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipPopDelay to 10000
End_Procedure
|
|
8
|
How can I make the control's tooltip to be shown faster
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
End_Procedure
|
|
7
|
How can I get the control's handle
Procedure OnCreate
Forward Send OnCreate
Showln (ComhWnd(Self))
End_Procedure
|
|
6
|
How can I clears the images into the control
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComStatusBarLabel to "<img>1</img> This is an icon into the control's status bar"
Get ComReplaceIcon 0 -1 to Nothing
End_Procedure
|
|
5
|
How can I load images into the control
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComStatusBarVisible to OLEexStatusBarAnchorTop
Set ComStatusBarLabel to "<img>1</img> This is an icon into the control's status bar"
End_Procedure
|
|
4
|
How do I get the version of the control I am running
Procedure OnCreate
Forward Send OnCreate
Showln (ComVersion(Self))
End_Procedure
|
|
3
|
The control's foreground is changed if I open multiple views. What can be the problem
Procedure OnCreate
Forward Send OnCreate
Set ComForeColor to (RGB(255,0,0))
Set ComForeColorAlternate to (ComForeColor(Self))
End_Procedure
|
|
2
|
The control's background is changed if I open multiple views. What can be the problem
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(255,255,0))
Set ComBackColorAlternate to (ComBackColor(Self))
End_Procedure
|
|
1
|
How do I change the control's background color
Procedure OnCreate
Forward Send OnCreate
Set ComBackColor to (RGB(240,240,240))
Set ComBackColorAlternate to (ComBackColor(Self))
Set ComHeaderVisible to False
End_Procedure
|